home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr01 / jock.zip / TOTDEM11.ZIP / DEMST3.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  677b  |  32 lines
  1. program DemoStringThree;
  2. {demST3 - number formatting}
  3.  
  4. Uses DOS, CRT,
  5.      totFAST, totSTR;
  6.  
  7. Var
  8.    Fmt: FmtNumberOBJ;
  9.  
  10. begin
  11.    ClrScr;
  12.    with Fmt do
  13.    begin
  14.       Init;
  15.       writeln(FormattedLong(2000,15));
  16.       writeln(FormattedReal(2000,2,15));
  17.       SetSign(PlusMinus);
  18.       writeln(FormattedLong(2000,15));
  19.       SetSign(DBCR);
  20.       writeln(FormattedReal(2000,3,15));
  21.       SetPrefixSuffix('$','');
  22.       writeln(FormattedReal(2000,3,15));
  23.       SetSeparators('*',',','.');
  24.       writeln(FormattedReal(2000,3,15));
  25.       SetJustification(JustRight);
  26.       writeln(FormattedReal(2000,3,15));
  27.       Done;
  28.    end;
  29.    GotoXY(1,23);
  30. end.
  31.  
  32.